home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
tablist
/
tablists.int
< prev
next >
Wrap
Text File
|
1996-04-08
|
4KB
|
157 lines
unit TabLists;
interface
uses
WinTypes, SysUtils, Graphics, Controls, StdCtrls, ExtCtrls,
Classes, Forms, Menus, Buttons, DsgnIntf;
const
TabChar = #9;
type
TColumnRange = 0..255;
TColumnJust = (cjLeft, cjRight, cjCenter, cjCurrency);
TColumnInfo = class(TPersistent)
public
procedure Assign(NewValue: TColumnInfo);
class function ColJustToStr(Just: TColumnJust): string;
class function StrToColJust(Str: string): TColumnJust;
class function EncodeColStr(Width: integer;
Just: TColumnJust;
Gap: integer): string;
class procedure DecodeColStr(ColStr: string;
var Width: integer;
var Just: TColumnJust;
var Gap: integer);
property Width[Index: TColumnRange]: integer read GetWidth write SetWidth;
property Just[Index: TColumnRange]: TColumnJust read GetJust write SetJust;
property Gap[Index: TColumnRange]: integer read GetGap write SetGap;
published
property NumColumns: TColumnRange read FNumColumns write FNumColumns;
property CurrencyTrailer: string read FCurrencyTrailer write SetCurrencyTrailer;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
ETabbedListMgr = Exception;
TTabbedListBox = class(TCustomListBox)
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SyncHeader(Header: THeader);
published
{ Properties }
property Align;
property BorderStyle;
property Color;
property Columns: TColumnInfo read FColumns write SetColumns;
property Ctl3D;
property Cursor;
property DragCursor;
property DragMode;
property Enabled;
property ExtendedSelect;
property Font;
property Header: THeader read FHeader write SetHeader;
property Height;
property HelpContext;
property Hint;
property IntegralHeight;
property ItemHeight;
property Items;
property Left;
property MultiSelect;
property Name;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Sorted;
property TabOrder;
property TabStop;
property Tag;
property Top;
property Visible;
property Width;
{ Events }
property OnClick;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
end;
TTabbedDropDownListBox = class(TCustomComboBox)
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SyncHeader(Header: THeader);
published
{ Properties }
property Color;
property Columns: TColumnInfo read FColumns write SetColumns;
property Ctl3D;
property Cursor;
property DragCursor;
property DragMode;
property DropDownCount;
property Enabled;
property Font;
property Header: THeader read FHeader write SetHeader;
property Height;
property HelpContext;
property Hint;
property ItemHeight;
property Items;
property Left;
property MaxLength;
property Name;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Sorted;
property TabOrder;
property TabStop;
property Tag;
property Text;
property Top;
property Visible;
property Width;
{ Events }
property OnChange;
property OnClick;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnDropDown;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
end;
implementation